% V20210224 - 6.5 GW_START_CENTER

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Horizontal Center Example")

% Add title to page.
GW_ADD_TITLEBAR(p,Title$)

% Add descriptive text.
GW_ADD_TEXTBOX(p, "The following controls are centered horizontally:")

% Start centering.
GW_START_CENTER(p)

 % Add some controls.
 GW_USE_THEME_CUSTO_ONCE("inline")
 GW_ADD_BUTTON(p, "Question", "Button Q")

 GW_USE_THEME_CUSTO_ONCE("inline")
 GW_ADD_BUTTON(p, "A button", "Button 1")

 GW_USE_THEME_CUSTO_ONCE("mini")
 GW_ADD_INPUTNUMBER(p, "", "42")
 
 GW_ADD_IMAGE(p, "cartman.png")

% End of centering.
GW_STOP_CENTER(p)

% Add more descriptive text.
GW_ADD_TEXTBOX(p, "The following controls are NOT centered horizontally:")

% Add some controls.
GW_USE_THEME_CUSTO_ONCE("inline")
GW_ADD_BUTTON(p, "Answer", "Button A")

GW_USE_THEME_CUSTO_ONCE("inline")
GW_ADD_BUTTON(p, "Another button", "Button 2")

GW_USE_THEME_CUSTO_ONCE("mini")
GW_ADD_INPUTNUMBER(p, "", "42")

GW_ADD_IMAGE(p, "cartman.png")

% Show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.

 % Example feedback.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of Horizontal Center example."